home *** CD-ROM | disk | FTP | other *** search
/ World of Sound / World of Sound.iso / utils / miditools / midiperf / mpm / install_mpm < prev    next >
Encoding:
Text File  |  1993-03-28  |  7.7 KB  |  340 lines
  1. ; This is the installation script for Midi Performance Manager
  2. ; $VER: MPM_Install 1.5 (28.03.93)
  3.  
  4. (set old_level @user-level)
  5. (set catalogdir "Catalogs/")
  6. (set osversion (/ (getversion) 65536))
  7.  
  8. ;========================================================================
  9. ; English strings
  10.  
  11. (set default_lang 2)
  12.  
  13. (set #bad-kick
  14.     (cat     "Oh no. What do you want ? You need Kickstart 2.04 (V 37+)"
  15.             "to run MPM. Go and buy it ! Then you can come again."
  16.     )
  17.  
  18. )
  19.  
  20. (set #mycopylib-help
  21.     (cat     "This file is required for a successful installation of MPM. If you "
  22.             "already have a copy of the library, this is perhaps an update "
  23.             "of your file."
  24.             @copylib-help
  25.     )
  26. )
  27.  
  28. (set #copy-reqtools "Copying reqtools.library to Libs:")
  29.  
  30. (set #copy-pplib "Copying powerpacker.library to Libs:")
  31.  
  32. (set #copy-midilib "Copying midi.library to Libs:")
  33.  
  34. (set #copy-guidelib "Copying amigaguide.library to Libs:")
  35.  
  36. (set #defaultdest-prompt "Select destination directory")
  37.  
  38. (set #defaultdest-help
  39.     (cat    "You have to select a directory where MPM and other "
  40.             "files should be copied to."
  41.             @askdir-help
  42.     )
  43. )
  44.  
  45. (set #which-language
  46.     (cat "\nWhich languages should be installed?"
  47.     )
  48. )
  49.  
  50. (set #which-language-help
  51.     (cat    "\nThe Amiga can be operated in many different"
  52.             " languages. If you want ReqTools requesters to"
  53.             " use the same language as the Amiga Workbench"
  54.               " then a catalog file must be copied to your"
  55.               " system disk for each language supported.\n\n"
  56.               "To reduce the amount of space consumed by the"
  57.               " language files, you can select to have only the"
  58.               " files of specific languages copied.\n\n"
  59.               "Simply check the boxes of the languages you wish"
  60.               " to have available on your system.\n\n"
  61.       @askoptions-help
  62.     )
  63. )
  64.  
  65. (set #startup-prompt
  66.     (cat "Add SEKD: assign to  \"S:User-Startup\" ?")
  67. )
  68.  
  69. (set #startup-help
  70.     (cat "Select YES to insert the assign for SEKD: in the "
  71.          "file S:User-Startup\n" 
  72.     @startup-help    
  73.     )
  74. )
  75.  
  76. (set #envarc-prompt
  77.     (cat "Please select directory to assign EnvArc: to")
  78. )
  79.  
  80.  
  81. ;========================================================================
  82. ; German strings
  83.  
  84. (if (= @language "deutsch")
  85. (
  86.  
  87. (set default_lang 1)
  88.  
  89. (set #bad-kick
  90.     (cat    "Nein, so geht es nun wirklich nicht. Sie brauchen mindestens "
  91.              "Kickstart 2.04 (V 37+) zum Betrieb von MPM. Kommen Sie wieder, "
  92.              "wenn Sie OS 2 installiert haben! "
  93.     )
  94. )
  95.  
  96. (set #mycopylib-help
  97.     (cat     "Diese Datei wird zur Installation von MPM benötigt. Falls Sie schon "
  98.             "eine Kopie dieser Datei haben, so ist dies möglicherweise ein Update "
  99.             "der aktuell installierten Datei.\n\n"
  100.             @copylib-help
  101.     )
  102. )
  103.  
  104. (set #copy-reqtools "Kopiere reqtools.library ins Verzeichnis Libs:")
  105.  
  106. (set #copy-pplib "Kopiere powerpacker.library ins Verzeichnis Libs:")
  107.  
  108. (set #copy-midilib "Kopiere midi.library ins Verzeichnis Libs:")
  109.  
  110. (set #copy-guidelib "Kopiere amigaguide.library ins Verzeichnis Libs:")
  111.  
  112. (set #defaultdest-prompt "Auswahl des Zielverzeichnisses")
  113.  
  114. (set #defaultdest-help
  115.     (cat    "Wählen Sie ein Verzeichnis, z.B. auf Ihrer Festplatte, in das "
  116.             "MPM und andere wichtige Dateien kopiert werden soll.\n\n"
  117.             @askdir-help
  118.     )
  119. )
  120.  
  121. (set #which-language
  122.     (cat "\nWelche Sprachen sollen installiert werden?"
  123.     )
  124. )
  125.  
  126.  
  127. (set #which-language-help
  128.     (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  129.          "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
  130.          "Festplatte kopiert werden.\n\n"
  131.          "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  132.             "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  133.             "Sprachen zu installieren.\n\n"
  134.          "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  135.          "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
  136.          "einem Häkchen markiert sind.\n\n"
  137.      @askoptions-help
  138.     )
  139. )
  140.  
  141. (set #startup-prompt
  142.     (cat "SEKD: Zuweisung in  \"S:User-Startup\" einfügen  ?")
  143. )
  144.  
  145. (set #startup-help
  146.     (cat "Wählen Sie Ja um Zuweisung in die Datei \"S:User-Startup\" "
  147.          "einzufügen\n."
  148.     @startup-help    
  149.     )
  150. )
  151.  
  152. (set #envarc-prompt
  153.     (cat "Wählen Sie Verzeichnis für EnvArc: Zuweisung.")
  154. )
  155.  
  156. ))
  157.  
  158. ;========================================================================
  159.  
  160. (
  161.     (if (< (- (getversion) 65535) 37)
  162.         (abort #bad-kick)
  163.     )
  164. )
  165.  
  166. (copylib
  167.     (prompt "\n" #copy-reqtools)
  168.     (help #mycopylib-help)
  169.     (source "libs/reqtools.library")
  170.     (dest "LIBS:")
  171.     (confirm)
  172. )
  173.  
  174. (copylib
  175.     (prompt "\n" #copy-pplib)
  176.     (help #mycopylib-help)
  177.     (source "libs/powerpacker.library")
  178.     (dest "LIBS:")
  179.     (confirm)
  180. )
  181.  
  182. (copylib
  183.     (prompt "\n" #copy-midilib)
  184.     (help #mycopylib-help)
  185.     (source "libs/midi.library")
  186.     (dest "LIBS:")
  187.     (confirm)
  188. )
  189.  
  190. (copylib
  191.     (prompt "\n" #copy-guidelib)
  192.     (help #mycopylib-help)
  193.     (source "libs/amigaguide.library")
  194.     (dest "LIBS:")
  195.     (confirm)
  196. )
  197.  
  198.  
  199. (
  200.     (set @default-dest
  201.         (askdir
  202.             (prompt #defaultdest-prompt)
  203.             (help #defaultdest-help)
  204.             (default "ram:")
  205.         )
  206.     )
  207.  
  208.     (set @defdir         (tackon @default-dest "mpm"))
  209.     (set @SetupDir         (tackon @defdir "Setups"))
  210.     (set @SetuplistDir     (tackon @defdir "SetupLists"))
  211.     (set @SynthDir         (tackon @defdir "Synth"))
  212.     (set @DumpDir         (tackon @defdir "Dumps"))
  213.     (set @ARexxDir         (tackon @defdir "ARexx"))
  214.     (set @DeutschDir    (tackon @defdir "Deutsch"))
  215.     (set @EnglishDir    (tackon @defdir "English"))
  216.  
  217.  
  218.     (if
  219.         (= (exists "Envarc:") 0)
  220.         (
  221.             (set envdefaultdir
  222.                 (askdir
  223.                     (prompt #envarc-prompt)
  224.                     (help
  225.                         ""
  226.                         @askdir-help
  227.                     )
  228.                     (default "SYS:")
  229.                 )
  230.             )
  231.             (makeassign "EnvArc" envdefaultdir)
  232.  
  233.             (startup
  234.                 "Envarc"
  235.                 (prompt #startup-prompt)
  236.                 (help #startup-help)
  237.                 (command ("Assign EnvArc: %s" envdefaultdir))
  238.             )
  239.         )
  240.     )
  241.  
  242.     
  243.     (set @envdir "Envarc:MPM")
  244.  
  245.     (makedir @envdir)
  246.     (makedir @defdir (infos))
  247.     (makedir @SetupDir)
  248.     (makedir @SetuplistDir)
  249.     (makedir @SynthDir)
  250.     (makedir @DumpDir)
  251.     (makedir @ARexxDir)
  252.     (makedir @DeutschDir (infos))
  253.     (makedir @EnglishDir (infos))
  254. )
  255.     
  256. (
  257.     (copyfiles (source "Setups")        (dest @SetupDir)             (pattern "#?"))
  258.     (copyfiles (source "SetupLists")     (dest @SetuplistDir)         (pattern "#?"))
  259.     (copyfiles (source "Synth")         (dest @SynthDir)             (pattern "#?"))
  260.     (copyfiles (source "Dumps")         (dest @DumpDir)             (pattern "#?"))
  261.     (copyfiles (source "ARexx")         (dest @ARexxDir)             (pattern "#?"))
  262.     (copyfiles (source "Deutsch")         (dest @DeutschDir)             (pattern "#?"))
  263.     (copyfiles (source "English")         (dest @EnglishDir)             (pattern "#?"))
  264.  
  265.     (copyfiles (source "MPM")            (dest @defdir))
  266.     (copyfiles (source "MPM.info")        (dest @defdir))
  267.  
  268.  
  269.     (copyfiles (source "mpm.ctrl")             (dest @envdir) )
  270.     (copyfiles (source "mpm-default.mix")     (dest @envdir) )
  271.     (copyfiles (source "mpm-default.bay")     (dest @envdir) )
  272.  
  273.     (if (exists "AmigaGuide")
  274.             (copyfiles (source "AmigaGuide")    (dest @defdir))
  275.     )
  276.  
  277.     (if (exists "AmigaGuide.info")
  278.             (copyfiles (source "AmigaGuide.info")    (dest @defdir))
  279.     )
  280.  
  281.     (if (exists "help.guide")
  282.             (copyfiles (source "help.guide")     (dest "S:"))
  283.     )
  284.  
  285.     (if (exists "mpm.key")
  286.              (copyfiles (source "mpm.key")         (dest "L:"))
  287.     )
  288.  
  289. )
  290.  
  291.  
  292. (if (exists "SYS:Locale")
  293. (
  294.     (if (exists "LOCALE:")
  295.     (
  296.         (user 2)
  297.         (set lang (askoptions (prompt #which-language)
  298.                                      (help #which-language-help)
  299.                                      (choices
  300.                                         "Dansk"
  301.                                          "Deutsch"
  302.                                          "English"
  303.                                          "Français"
  304.                                          "Italiano"
  305.                                          "Nederlands"
  306.                                          "Norsk"
  307.                                          "Svenska")
  308.                                    (default default_lang)
  309.                      )
  310.         )
  311.         (user old_level)
  312.  
  313.         (set n 0)
  314.         (while (set language (select n
  315.                                        "dansk"
  316.                                         "deutsch"
  317.                                         "english"
  318.                                         "français"
  319.                                         "italiano"
  320.                                         "nederlands"
  321.                                         "norsk"
  322.                                         "svenska"
  323.                                         ""))
  324.         (
  325.             (if (IN lang n)
  326.             (
  327.                 (if (<> 2 n)
  328.                 (
  329.                     (makedir (cat "LOCALE:Catalogs/" language))
  330.                     (copyfiles (source (cat catalogdir language))
  331.                                   (dest (cat "LOCALE:Catalogs/" language))
  332.                                   (all)
  333.                     )
  334.                 ))
  335.             ))
  336.             (set n (+ n 1))
  337.         ))
  338.     ))
  339. ))
  340.